home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / MASK-MON.DMO < prev    next >
Text File  |  1996-07-04  |  6KB  |  93 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   MASK-MON.DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16.   Not much use, today, for monochrome but these masks can be converted to
  17.   color masks using fColorMask$ hence, they retain their importance! Very
  18.   rarely would I put all this data into a program. I use the file basically
  19.   for a holding pen for my masks then extract the ones I end-up using and
  20.   put them directly into the code.
  21. $endif
  22.  
  23. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  24. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  25.                                                '┌────────────────────────────
  26. $INCLUDE "DAS-NB01.INC"                        '│
  27. $INCLUDE "DAS-NBV1.INC"                        '│
  28. $INCLUDE "DAS-NBV2.INC"                        '│
  29.                                                '│
  30. CLS                                            '│ set-up the VGA screen
  31. SCREEN 11                                      '│ MONOCHROME
  32. GraphicSETUP                                   '│
  33.                                                '│
  34. DIM M$(94)                                     '│ mask names
  35. FOR X% = 1 TO 94                               '│ read data
  36.   READ M%                                      '│
  37.   READ M$(M%)                                  '│
  38.   M$(M%) = "N° ## " + fJustLeft$(M$(M%),15,32) '│ display string for USING
  39. NEXT                                           '│
  40. GBoxDRAW  0, 16, 191, 191, 0, 3, 1             '│ draw
  41.                                                '│
  42. X% = 1                                         '│ start here
  43. DO                                             '│
  44.   Mask$ = fMonoMask$( X% )                     '│ get mask data
  45.   LOCATE 1,1 : PRINT USING M$(X%); X%          '│ report which mask
  46.   GBoxCOLOR 1, 17, 190, 190, 0                 '│ clear box
  47.   PAINT ( 1, 17 ), Mask$, 1                    '│ put the mask
  48.   SELECT CASE fAnyKey$                         '│ a simple menu
  49.     CASE CHR$(027) : EXIT LOOP                 '│ <ESC> bail out
  50.     CASE CHR$(0,72) : X% = MAX(  1, X%-1 )     '│ <UP>
  51.     CASE CHR$(0,80) : X% = MIN( 94, X%+1 )     '│ <DOWN>
  52.   END SELECT                                   '│
  53. LOOP                                           '│
  54.                                                '│
  55. PALETTE : SCREEN 0 : END                       '│ a clean exit
  56.                                                '└────────────────────────────
  57.  
  58.  
  59. ' these ended-up in no special order???
  60.  
  61. DATA 01, "05% GREY",      16, "BOX _& O(I)",    31, "GRID 1I"
  62. DATA 46, "LINES 5DI",     02, "10% GREY",       17, "BOXES"
  63. DATA 32, "GRID 2",        47, "LINES 6D",       03, "25% GREY"
  64. DATA 18, "BOXES(I)",      33, "GRID 2I",        48, "LINES 6DI"
  65. DATA 04, "50% GREY",      19, "BRICKS",         34, "HERRING BONE"
  66. DATA 49, "LINES 7D",      05, "60% GREY",       20, "BRICKS(I)"
  67. DATA 35, "ICECUBES",      50, "LINES 7DI",      06, "75% GREY"
  68. DATA 21, "CHAINS(H)",     36, "ICECUBES (I)",   51, "LINES 8D"
  69. DATA 07, "BACKGROUND 1",  22, "CHAINS(HI)",     37, "LINES 1H"
  70. DATA 52, "LINES 8DI",     08, "BACKGROUND 1I",  23, "CHAINS(V)"
  71. DATA 38, "LINES 1V",      53, "O's",            09, "BACKGROUND 2"
  72. DATA 24, "CHAINS(VI)",    39, "LINES 2H",       54, "O's (I)"
  73. DATA 10, "BACKGROUND 2I", 25, "CHECKER 1",      40, "LINES 2V"
  74. DATA 55, "PATTERN 1",     11, "BACKGROUND 3",   26, "CHECKER 2"
  75. DATA 41, "LINES 3H",      56, "PATTERN 1I",     12, "BACKGROUND 3I"
  76. DATA 27, "CHECKER 3",     42, "LINES 3V",       57, "PATTERN 2H"
  77. DATA 13, "BACKGROUND 4",  28, "CHECKER 4",      43, "LINES 4H"
  78. DATA 58, "PATTERN 2V",    14, "BACKGROUND 5",   29, "CHECKER 5"
  79. DATA 44, "LINES 4V",      59, "PATTERN 3",      15, "BOX _& O"
  80. DATA 30, "GRID 1",        45, "LINES 5D",       60, "PATTERN 3I"
  81. DATA 61, "PATTERN 4I",    76, "TURK SCREEN(I)", 91, "DOUBLE KNIT2"
  82. DATA 62, "PATTERN 5",     77, "TVs   ",         92, "MEANDER"
  83. DATA 63, "PATTERN 5I",    78, "ZIG-ZAG 1H",     93, "SHOGUN"
  84. DATA 64, "PATTERN 6D",    79, "ZIG-ZAG 1HI",    94, "TUCK _& ROLL"
  85. DATA 65, "PATTERN 7DI",   80, "ZIG-ZAG 1V",     66, "PATTERN 8D"
  86. DATA 81, "ZIG-ZAG 1VI",   67, "PATTERN 8DI",    82, "ZIG-ZAG 2H"
  87. DATA 68, "PATTERN 4",     83, "ZIG-ZAG 2HI",    69, "RAINDROPS"
  88. DATA 84, "ZIG-ZAG 2V",    70, "RAINDROPS (I)",  85, "ZIG-ZAG 2VI"
  89. DATA 71, "SCALES",        86, "WICKER WORK 1",  72, "SCALES (I)"
  90. DATA 87, "WICKER WORK 2", 73, "TARTAN WEAVE",   88, "WEAVE"
  91. DATA 74, "TARTAN (I)",    89, "WEAVE (I)",      75, "TURK SCREEN"
  92. DATA 90, "DOUBLE KNIT 1"
  93.